PAC 



I DENT 



H19 3/7/68 



)Vz. A404// 



SCHEDULER AMD SWAPPER 



^^C 



^ 



PAC DM B 


ZRO. 


; i« 


PRMSK 


DATA 


7777B 


FLMSK 


DATA 


777 7000.0B 


ADMSK 


DATA 


37777B 


3SCMSK 


DATA 


NSEC-.l 


SGCI 


OPD 


1 65000008* I* 1 


S3 ST 


OPD - 


15100000B* 1* 1 


LDRQ, 


. EQU '. 


20 



ENTRY POINTS 



ENTRY PLMSK* PRMSK * ADM SK* SECMSK* 3RT* SRTE 

ENTRY ' PACDMB* POPX* XPOP* PACQE* POPDMS* SET-SET* GDAC 

ENTRY PACGC* CACCF* POPINT* POPST* PU.GO * QQEDMS* PACGO 1 

ENTRY FPULST*PUCT*PUEPTR*PU8PTR*PUPAC 

ENTRY SWAP* UPRL*PTRL* LABEL* CHRL* GDBC 

ENTRY „_ RRL \ * RRL2* RRL 3* QUTAB* TI ME* TTI ME* PUOTR 

ENTRY R.TEX* EREAL* WREAL* CQO* SQO* RSYB* W3YB* DMS . 

ENTRY EPU*FPLST*QSCH*QPUT*IIR*SIR*>GET : ' 

ENTRY CLINT* CLOCK 3* P WEI * TRAPT 



'»» 


SCHEDULER 




* EXEC 


DISMIi 
IF -1 


3S 




EX.DMS 


SKN 


PQLJ* 2 






BRU • 


TRAP 






LDX 


SS0 3 






RCH 


2208 


(CXA*CBX) 




MUL 


= 3 






L SH 


23 






ADD 


= Q0 






RCH 


4408 


CCXB*CAX) 




MIN 


. 




x ' 


BRU 


POP DMS 






ENDF 






* dism: 


I S3 un: 


flL INTERRUF 


, T ■ 


DMS 


LDB 


=7000058 






BRU 


POP ST 




*BRS 45 (SIM 


QUANTUM OFLO) 


SQO 


LDB • 


= -1 






STB. 


TTI ME . - 




S3 SQO' 


MIN 








BRU 


PACQE 




*SYSPOi 


P EX I T 


TO RESTORE 


CENTRAL REGISTERS 


FOPX 


LDA 


:. SS01 






LDB 


SS02 


' 




LDX 


SS03 





*SYSPOP EXIT IF- CENTRAL REG OK 
XPOP • BRR 

*QUAiMTUM. OVERFLOW OCCURED - 
TRAPT ZRO ' ■ • 

SKN.TI-ME5.BRIJ* TRAPT 
. ST'A S-S01 

STB SS02 

STX SS03- 

' LDA TRAPT5 STA 
PACQE . LDB PACDMB ' ■ 

Q9EDMS LDX =QQE5 SKN TTIME5 LDX = QSQ 
*POP DISMISS ENTRY POINT 
POPDMS STB PACLVL - 

STX PPREV 

BRM FACP 





LDA '. 


PACPTR ■'. '■•.-. 




LDX PP 


REV 




BRM 


QPUT CPUT PAC ON QUEUE) ' 




LDB 


PACLVL (PICK UP DISMISS COND) 


POP ST 


LDX 


PACPTR 




STB 


?TEST*2 


POP I NT 


LDA 


0-' 




ETR 


=500377778 " . 




XMA 


PL*-2 ' ' 




ETR 


=7 700000B 




ADM 


PL* 2 (SAVE, START LOO 


*SAVE 


CENTRAL 


REGISTERS 




LDA 


SS01 ' 




STA . 


PA* 2 ■...■■ 




LDA 


SS02 . .' .- ;■ ■ 




STA 


■ PB*2 ' 




LDA • 


. ss03 ■ ;■. 




.STA 


' PX*2 • ■ . • • • '■ 


*SST U 


P PROPE 


R QUANTUM REMAINING 




LDA 


TTIME . , 




SK G 


= -,1 .' , ' 




LDA : 


■QllTAB ';'.■' 




C'LB. 






L SH 


15 



. •' XMA PQU*2 ■ ■ 

ETR =60077777B 

ADM PQU*2 

PAC GO SKN NRCL5 MIN RAD ACT . ■ '. ' 

LDA TIME5 .SUB =NSGU-l5*SKG =-205 LDA =-20 

CNA5 AXC5 MIN HI SCR* 2 

LDX =QSQQ , ; 

PACG02 SKG =95 SKN PNEXT* 25 BRU-PACG03 

ADD =15 LDX PNEXT* 25 BRU PACG02 
PACG0 3 CAX5 MIN PACCNT* 2 

SKR Q.QEQF5 SKG =05 BRM EQQEQ ■' 

PACG0 1 LDA =SETTB. ' 

STA ' TJ03 ' (SET ACCOUNT TO SYSTEM) 

* START SCHEDULER \- ''.'■' ' 

CLA5 STA FPFLG 



'FL00P1 
FL00P2 

PLOOP 



ERFLG 



LDA 

ST A 

LDA 

LDA 

ADD 

LDA 

BRM 

BRM 

LDA 

LDA' 

LDX 

LDX 

Z RO 



•REAL J ADD =9 

ERFLG5 BRMEDRCQ5 LDX =NSMEM-NMEM 

ERMT*25 ETR ADMSK5 STA ERMT> 25 BRX 

= -2.? STA ACTRP-5 STA CLOCKS 

= 15 ■ STA RUNOUT / 



-1=-3 



= 4305 
EXPU5 



STA ARCVRA5 
BRM FACP 
PTRY/ BRM SPACE 
= -2l STA FPFLG 
REAL J SKG ERFLG 5 
= QSQQi BRM TQGETS 



STA .CLPCTR 



3RU PLOOP. 
BRU PLOOP1 



= QQE5 BRM QPUT5 BRU PLOOP 1 



'EQQEQ ZRO 5 
LDX 



ADD =15 LSH 35 STA QQEQF ' 
:QQEQ5 BRM TQGET5 BRR EQQEQ 



LDX =QSQ5 BRM 



BRR EQQEQ 



QQE 
FIL 
FIL 



FIL 
FIL 
FIL 



STX FIL AC 3 



QF. DATA 4 ■ ' ' 

AC ZRO 5 STX FILAC2 

AC1 SKN PNEXT*25 BRR FILAC5 

LDX- PNEXT* 25 STX, FILAC4 / 

BRM CACC5 BRU. FIL AC 1 

LDA PMEXTj.25 LDB FILAC25 'LDX FILAC3~ 
-.. BxRM QGET5 LDX =QSQ5 LDA FILAC45 BRM 

LDX FILAC35 BRU FILAC1 
AC2 ZRO 
AC3 ZRO 
AC4 ZRO - 



QPUT 



CACC 



CACCS 
CACCF 
CAGCI 



ZROs LDA PIM>25 SKA=BIT35 

LDA PTES'1^25 LRSH 155 CAX 

LDA CACLST*25 STA is LDX CACC 1 

LDA*' PTEST*25- BRU*. T ' 

LDA REALS' ADD =905 STA ERFLG5 MIN 

LDX CACC 15 BRR CACC 

Z RO 



BRR CACC; STX CACC1 



CACC 



PTRY ZR05 LDX =QSQQS STX PACLVL 
PTRY1 SKN >NEXT.>2s BRU PTRY3 

BRMPPGET5 BRU PTRY-1. 
PTRY 4 STX PACPTRS BRU P AC ACT 
PTRY 3 LDA. ACTRP • ' 

SKG =-15 LDA =-15 STA ACTR 
LDA WEFLGS ETR RUNOUT; SKN 



LDX =QQEQ5 
BRM PPGET5 



STX PACLVL5 SKN 



FPFLG5 STA WWEFLG 
PNEXT*2S BRR PTRY 



BRR PTRY5 BRU PTRY 4 



PPGET, ZRO 5 LDA. =SWTIMs SKN ACTR5 
STX PPREV5. LDX PNEXT*2 
SKN RUNOUTS BRR PPGET 
BRM' PGET5 BRR PPGET '• . ' 
MIN -PPGET; BRR PPGET. 



LDA = HSWTIMS STA TUOB 



FACP ZR03 LDX = QTI QJ BRM . FILAC 
LDX.=QI0Q5 BRM FILAC 
, BRR FACP 

TQGET ZROi SKN PNEXT*2i BRR TQGET 
CXB5 LDX PNEX,T*25 STX PACPTR 
LDA PNEXT*25 CSXl BRM QGET 
. LDA PACPTRI MIN TQGET5 BRR TQGET 



^ACTIVATE PROGRAM 




PACACT LDA 


=7000016 




XMA 


PTEST*2. 




ST A 


PPTEST 




MIN 


ACTCNT 




LDA 


PNEXT*2 




LDB 


PACLVL 




. LDX 


PPREV. 




BRM 


QGET 




PACAC1 LDX 


PACPTR 




*LDA- 


■ PQU*2 






115 


i. 


ETR 


= 1'77B 




• STA 


TTIME 




*SET UP TIME*TTIME* AND. 


AC'TR 


LDA 


= NSQU-T 




STA 


TIME' 




STA 


QTIME ' 




LDA 


= 12 




STA 


CLPCTR 




* CHECK FOR 


INTERRUPT AND 


SET UP 


LDA 


PPTESTJ LRSH 


1 5.? CAX 


LDA 


C ACL ST* 2 




L RSI- 


[ 15 




ADD 


=ACTLST 




STA 


T ' ' 




LDX 


PACPTR 




BRU* 


: . T 




PACSRT LDA 


PL* 2 




STA 







PACOVF LDA 


PA* 2 ' 




LDB 


PB*2 




LDX. 


PX*2 




BRI 





• 


*CAUSE A PROG INTERRRUPT 




PACINT LDA. 


PPTEST 




ETR 


= 37B 




LDB 


PL* 2 




SKN 


PL* 2 < 




LDB 


SBRSRT 




CAX 






LDX 


200B*6 




STB* 


■ ' 0*6 




CXA- 






ADD 


= 15 MRG = 


BIT0 



(SAVE PTEST FOR INT SIM) 



(GET PROG OFF QUEUE) 



START. LOC C0) 





STA 


■ 0- • 




LDX , 


PACPTR 




BRU 


PACOVF 


♦ACTIVATION .TEST ROUTINES 


CACL ST 


'3. 


CAC0 







CAC 1 







CAC2 







CAC 3 







CAC4 




1 


CACCS 







CACCF 


, 





CACCF . 







CACCF 







CAC9 







CAC 10 


*" SPECIAL ACTIVATION ROUTINES 


ACTLST 


BRU ' 


PACSRT 




BRU 


PACINI'. 


CAC0 


CACR 


oJ3»CSK-G =0) 
tVcSKG =0) 


CAC1 


CACR 


CAC2 


CACR 


0> CSKC '=-1) 


CAC3 


CACR 


\, CSKG TTYEMG) 


CAC4 


BRU* 


PTEST* 2 


CAC 9 


CACR 


0/CSKA X2) 


CAC 10 


CACR 


1 ^ CSKG =-1) 



* PHAN' 


TOM USEi 


R ' 


EXPU' 


ZRO 




* P . u • 


SCHEDU! 


_ER 


PUGO 


LDA 


PUCTR 




SKG 


= 




BRR EX1 


PU 




LDX 


=PUBPTR 


PUSCN 


' six ; 


PUCPTR 




LDX 


0*2 




LDA 


2., 2. : 




RSH 


12 




STA 


PUP AC 




CLA 






LCY 


12 




STA 


FILE 


, 


LDA . 


1j2 




' STA :; 


PUT ST 




. LRSH . 


■ 15 




AXC' 






BRU* ' 


PUCLST*2 


* CAN ' 


T" PROCE 


SS THIS-' EN TRY 


PUN XT 


LDX* 
CXA 


PUCPTR 




SKE 


PUEPTR 



BRU PUSCN 

BRR EXPU 
♦ PHANTOM USER ACTIVATION TESTS ' ., 

■PUCLST DATA PUDIO> PURB.T> PUTRTkb PUBRTW; PUCRTW* PUNXT 

DATA PUDHU* PUNXT* PUNXT* PUROF'- 

DATA 'PUDSON 

PUDSON LDA FILE;. MRG CPTSTl STA *+l$ SKS* 362008^2 
BRU-*+25 BRU PUACT5 LDAREAL;: LDX FILE 
SKG TTYTIM*2i BRU PUNXT* BRU PUACT 



* TEST 


DATA-SE' 


F TIME OUT 


PUDHU 


LDX 


FILE 


1 


LDA 


REAL 




. SKG 


TTYTIM*2 ■ , 




BRU 


PUNXT 




BRU- . 


PUACT ' 




IF -.1. 




* TEST 


TF CARD 


PUNCH READ' 


PUCPTW 


. EXij . 


CPTW 




BRU - 


PUNXT " 




BRU ' 


PUBRTW 


* TEST 


IF PRINTER READY 


PUPRTW 


EXU 


PRTW 




BRU 


PUNXT 




BRU 


PUBRTW 




ENDF 




* TEST 


I F TAPE 


READY 


PUTRTW 


LDX 


FILE 




LDA 


FC*2 




RSH 


15 




ETR 


= 778 




CAX 






EXU • ' 


. TRTW*2 




BRU 


* + 2 . 




BRU 


PUNXT 


* TEST 


.W-BUFFEi 


D 
: S. 


PUBRTW 


CLA 






■SKE- 


BLK31 




BRU ' 


PUNXT 




SKS 


14000B 




BRU • 


PUNXT 


- 


LDX 


S FILE 




LDA 


FA* 2 




LRSH 


17 




COPY 


AX* B . i 




STX 


JOB 


» 


LDA' 


PMTP> 2 




ADD 


=20000000B 




STA 


■PMTJOB ■ 




CLA. 






LDX 


RL3*2 



TEST W CHANNEL READY 



•NCMEM 



M'liNJ ACTRP' 



PUACTW 



*■ TEST 
PU.CRT'W 



* TEST 
PUDIO 



*■ TEST 
PURBT 



PURBT2 



BRM 
BRU 
BRM 
BRU 
LDX 
LDA 
ADM 
LDB 
STB 
LDA 
ETR 
STA 
LDB 
BRM 
BRU 
BRU 
BRU 
CARD 
EXU 
BRU 
EXU 
BRU 
BRU 
IF D 
LDX 
LDA 
SKA 
BRU 
BRU 
IF P 
LDX 
'SKN 
BRU 
L'DX 
LDA 
BRM 
STX 
BRU 
LDA 
SKN. 



.■ SWAP • 
PUN XT 
LABEL 
PUACT 1 
FILE 
XN2 
FD* 2 ■' 
.FD*2 
- DEV 
FC*2 
ADMSK 
BUFF 
PUTST •' 
ED 
PUGO 

PUGG 
READER. READY 

CFTW 

PUACT 

CRTW ' 

PUNXT 
1 PUBRTW 

RUM FILE READY 

FILE 
' FDj>2 

= DB.B 

PUNXT • 

PUACT . 
UBGUT APPLICABLE 

FILE 

TTYASG*2 

PURBT 2 

TTYASC-b2 

=PURBTA 

SCFK 

PUP AC ■ 

PUACT 
FPLST5 SKG =05 BRU 
FULST5 BRU PUACT 15 



PUNXT 
BRM RCVR 



PURBTA ZRO 
DI R 
LDA 
SKA 
BRU 
. EI R 
BRR 
MRG 
EIR 
STA 
BRU 
LDX 
LDX 



PURBT 1 



>URQF 



PIM.,2 • . 
-BIT2+BIT3 

PURBT.l 

PURBTA 



X2 

PIMj.2 

PUNXT 

FILE5 SKN 

TTYASG^.25 



TTY ASG* 25 BRU PURO F 1 
STX PUPAC5 BRM EFK 



■'■■■■ LDA 1 = PUR0FAJ BRM SCFKS BRU PUACT 
PU.R0F1 LDA =PUGO+100000BI STA PUTSTJ . BRU PUACT 1 
PUROFA ZRO*. LDA PIM»2i SKA =BIT2+BIT35 BRU PUMXT5 BRR PUROFA 
* ACTIVATE P«U. REQUEST ROUTINE 



PUACT 'LDX 


PUP AC -• .'■ . 


BRM 


PGET 


BRU 


PUNXT ..•■'■■ 


PUACT-r LDX ■ 


PUCPTR 


DI R 




LDA 


FPULST ' 


;, XMA* 


%> 2 . ■■'; 


XMA 


■0*2 , 


STA 


FPULST ■•■-■'■ 


SKE 


PUEPTR 


~-BRU 


. *+2. " ' . ■ 


STX 


PUEPTR 


LDA 


PUTST . 


LRSH 


15 


SKR 


PUCTR. 


CAX' 




EIR 




BRU* 


PUCSETj. 2 . ; . •• " ■ . 


* PHANTOM USER REQUEST- PROCESSING PREPARATION 


PUCSET ZRO 


- PUDIOS 


. ZRO* 


PUTST 


DATA 


PUACT W* PUACTW* PUACT W* PUGO 


ZRO* 


PUTST ''■■ ' ' 


■ DATA 


PUACTW, PUAOTW • ; 


Z RO * 


PUTST 


^ ■'. • ZRO* 


PUTST - 


* CONTINUE DRUM BRS 


PUDI OS LDX PUP AC* LDA PIM.,25. ETR = <NQT>BIT3* 


LDA 


XM2 


ADM 


FD;>2 .' . ■ .".'". 


LDA 


FC^2 


. ETR 


ADMSK . 


STA 


BUFF • ' . \ x 


CAX 




BRR 


PUTST ■.''.: 


* MAKE P. U- 


. ENTRY ■ ' , 


EPU ZRO 


\ / ' " „ , . 



STA PIM.2MDX FILE 



MIN ACTR .-■•... 

STA EPU15 STB EPU2* LDX PUBPTR 
EPU4 CXAJ SKE = PUBPTRj BRU EPU3. 
LDA EPU1J LDB EPU2 



XMA* 


FPULST 


SKE =0.; 


BRU * + 2* 


MIN 


PUCTR 


XMA. 


FPULST 


CAX 




XMA* 


PUEPTR' 


STX 


PUEPTR 


XMA 


0* 2 


STA 


b2 



BRM RCVR CPUQ OVRFLO) 





STB 


2*2 






EI R 








BRR 


EPU 




EPU3 


LDA 


Ij-25 ■ LDB- 2* 


2 i LDX 0.2) SKE EPU1J BRU EP.U4 




CBA: 


SKE EPU2J 


BRU EPU4J< EIR* BRR EPU 


EPU1 


ZRO 


\ 




EPU2 


ZRO 






* GET 


USER 


.TO CORE 




i L~iL i 


ZRO 


- N 






STX 


PUP AC 






S.KN 


PUPAC 






BRU 


" PGET1 






LDA 


PTABi 2 






LRSH 


15 






. ETR 


= 177B 






STA 


JOB ' 






MIN 


ACTRP ■ 






CAX 








ADD 


= DBA 






. STA 


DBAJOB 


C SET UP DBA POINTER) 




LDA 


PMTP* 2 






ADD 


= 2C3000000B-NCMEM 




STA 


PMTJOB 


(SET UP .'PMT. PTR) ' : 




LDA'- 


TTNO* 2_ 






STA 


UTTY 


(SET UP USER TELETYPE) 




LDX 


PUPAC 


' . ' ''-.." ' 




BRM 


. • CHRL-. 


i . 




BRU 


PGET3 




PGET2 


LDX 


•JOB 






EAX' 


ETTB*2 






STX 


TJOB 


SET UP- TIME. CHARGING 


PGET1 


MIN 


PGET 


i < 


P6ET3 


LDX 


PUPAC 






BRR 


PGET 





* SET 


UP REAL 


RELABELING 


LABEL 


Z RQ 






STA 


RRLl 




STB 


RRL2 




STX . 


RRL3 




LRR1 






POT 


RRLl 


' 


.LRR2 






POT 


RRL2 




LRR3 






POT 


RRL3 




. BRR 


LABEL 


GHRL 


ZRO 






LDA 


RL1*2 




LDB 


RL2V2 




■ LDX 


JOB 



LDX 


RL3*2 


BRM .. 


SWAP 


BRR 


CHRL 


BRM 


. LABEL 


MIN 


•CHRL 


BRR 


CHRL 



♦SWAPPER* J. TV HOLLAND. 4 MAY 1967 

*THIS SWAPPER WORKS IN TWO MO-DBS: A SCHEDULER MODE AND A UTILITY 
*MODE. THE MODE IS DETERMINED BY THE SETTING OF SFLG* WHICH IS - . 
^NEGATIVE FOR SCHEDULER MODE AND NON-NEGATIVE FOR UTILI TY- MODE. 
*THE SCHEDULER MODE . SHOULD ONLY BE USED FOR CALLS FROM PACACT. 
*SWAP-I^- CALLED WITH PSEUDO- RELABELING IN A* B AND X*-. IT UNPACKS ; 

*THE RELABELING INTO THE ARRAY SRT. .IF SFLG. INDI GATES UTILITY : 
*M,ODE* IT. COPIES SRT INTO THE WORKING ARRAY . 'WSRT. . OTHERWISE* IT 
^CONTINUES TRYING TO FIND PAGES FOR THE ARRAY ALREADY' IN' WSRT. IF < 
*IT SHOULD SUCCEED IN ASSI GNIN G . PAGES TO EVERY REQUEST , IN WSRT* 
*IT WILL COPY SRT INTO WSRT AND BEGIN PAGE .ASSI GNMENT. IN ANY CASE* , 
*SWAP WILL NOT SKIP UNLESS ALL THE PAGES REQUESTED ARE' IN CORE. 
*THUS IN ALL CALLS TO SWAP .OTHER THAN IN PACACT* THERE SHOULD BE. 
*HANG LOOPS IF SUCCESSFUL SWAPPING I S- NECESSARY . IF ALL THE PAGES 
^REQUESTED ARE IN CORE* SWAP WILL SET UP THE REAL RELABELING* 
*CWITH THE READ ONLY BIT ON FOR EACH PAGE IN .THE PROGRAM RELABELING). /. 
*AND RETURN IT IN A*B*-AND X. THE READ ONLY TRAP ROUTINE INTERROGATES 
*TO SEE WHETHER THE PAGE ADDRESSED WAS REALLY READ 'ONLY . IF NOT* . 
*IT. TURNS' OFF THE READ-ONLY BIT* AND TURNS OFF THE BIT IN THE. ' . 
*PMT 'ENTRY WHICH INDICATES- A VALID RAD COPY. THUS*. IF'A PAGE IS 
*NOT ALTERED* IT NEED NOT BE WRITTEN OUT. FURTHERMORE* ON EVERY CALL 
*TO. SWAP* IT SCANS THE PAGES IN MEMORY. A WRITE IS INITIATED FOR 
*ANY PAGE WHICH HAS NOT BEEN REQUESTED BY SOMEBODY AND DOES NOT 
*HAVE A VALID RAD IMAGE. 



*PMT/SMT STATUS BITS* , ' ,. ' U 

*BIT INDICATES THAT A VALI D. COPY OF THI S. PAGE EXI STS ON THE RAD 

*B.IT 1 WHEN THIS BIT IS ON* THE PMT ENTRY REALLY POINTS TO AN 

* ENTRY IN THE SMT- THE BYTE NUMBER IS IN THE ADDRESS FIELD. 

* ■ r -IF. THIS BIT SHOULD GET TURNED ON ACCI DENTALLY* ALL HELL WILL 

* ' BREAK LOOSE. 

*BIT 2 MGET -TURNS THIS BIT ON. WHEN IT'' ASSIGNS A FRESH . 

* PAGE. IT SIGNIFIES THAT ALTHOUGH THERE IS NO COPY OF THE 
. PAGE IN CORE* NO RAD READ IS REQUIRED. ANY OLD. JUNK 

* . WILL DO. .-'•..■ 

*BIT 3 INDICATES THAT THERE IS A VALID COPY OF THIS PAGE IN CORE . 

*B'IT 4 INDICATES THAT THERE IS A READ, IN PROGRESS. 

*BIT 5 INDICATES THAT THERE IS A WRITE IN PROGRESS. 

*BIT 6 INDICATES THAT THIS PAGE IS TO BE. MADE READ ONLY. 

*3IT 7> IS UNASSIGNED ■■'.■■'■' . 

*BIT 8 SAYS THAT THIS PAGE, CAN' BE ACCESSED ONLY BY PROGRAMS WITH 

* EXEC. STATUS. ' - 



*BITS 9 THRU 17 CONTAIN THE RAD ADDRESS OF THE. PAGE. , 

*BlT 18 IS THE READ ONLY BIT AND IS ON IF THE PAGE IS READ ONLY. 

*BITS- 19 TO 23 CONTAIN THE REAL PAGE ADDRESS* ■' I F THE PAGE IS 

* .IN CORE. IF THERE .IS NO. VALID CORE IMAGE OF THE PAGE ' . 
*-■ THESE BITS SHOULD BE ZERO. 

*RMT STATUS BITS* 

*IF THE RMT ENTRY FOR A PAGE IS ALL ZERO* THE PAGE IS'UNUSED. 
♦OTHERWISE. THE FOLLOWING .CONVENTIONS. HOLD.' 

*.BIT. .MUST BE ZERO SINCE THERE IS A LOT '. OF INDI RECT. ADDRESSING M 

* THROUGH THE. RMT TABLE ' \ ■ ' ■ 

*BIT 1 HAD BETTER BE '3* SINCE SWAP DOES A FAIR AMOUNT OF 

* INDIRECT ADDRESSING THROUGH RMT* AND THE INDEX BI T • 

* BETTER BE 0. 

* BIT. 2 MEANS THAT ON SOME. CALL TO SWAP* THIS PAGE HAS BEEN ASSI GNED. 
■*■ IN SCHEDULER MODE*, THIS PAGE - WILL . NOT BE AVAILABLE, TO SATISFY 

* A REQUEST. IN UTILITY MODE THIS BIT WILL BE ON ONLY IF 

* ■' IT HAS BEEN ASSIGNED TO SATISFY THE CURRENT REQUEST. 

*.BITS 3 THRU 8 ARE NOT USED. 

*BIT 9 MUST BE ZERO BECAUSE OF INDI-RECT ADDRESSING VIA THE RMT TABLE 

* BITS 10 THRU 23 CONTAIN THE CORE ADDRESS OF THE PMT OR ,SMT ENTRY 
*' WHICH IS RESPONSIBLE FOR THIS PAGE. ; . 



♦ SWAP* 




' - 


SWAP 


Z RO 






BRM 


SWIN 




BRM 


GPAGE 




BRM 


MKRiL ' 




MIN 


SWAP 




BRR 


SWAP. 


♦ SWING- 






'S WIN 


ZRO 






STA 


3WR1 




STB 


. SWR2. 




. STX . 


SWR3 




'.BRM 


UPRL 




LDA ' 


■=rl 




STA 


FLFLG 


. . 


BRM 


DCRL 




BRR 


SWIN 


♦DCRL* 




)■ 


DCRL 


ZRO 






LDX, 


■ =-10 


DCRL1 


LDA.' 


SRTE*2 




COPY 


KB* AX 



INITIALIZE THE SWAPPER 

SCAN: THE REQUESTED PAGES AND START READS 
MAKE UP RELABELING IF POSSIBLE • ! 

POSSIBLE* ' SO SKIP 



' '; 

SAVE REGISTERS: IN CASE OF NEED 

UNPACK PSEUDO RELABELING 

INITIALIZE SWAP-FAILURE FLAQ 
FIND PMT ENTRIES 



FETCH PSEUDO-RELABELING BYTE 





SK G 


=NCMEM-1 


PMT OR SMT?. 




BRU 


' :' DCRL3 


SMT 




EAX* 


PMTJOB. 


■-- COMPUTE. TRUE ADDRESS 


DCRL7 " 


LDA 


0* 2 


FETCH PMT ENTRY 




SKA 


,=BIT1 


■ • DOES IT POINT TO- ' SMT? 


/ 


BRU 


DCRL 4 


'.' YES 




COPY 


XA*BX 






STA 


SRTE*2 




DCRL2 


BRX 


DCRLl 






BRR 


DCRL 




DCRL 4 


COPY 


AX* e 




DCRL 3 ■ 


EAX 


SMT* 2 






BRU 


DCRL 7 




*.C.PAGE; 


: 






CPAGE 


ZRO 


, 






SKN 


DRCC* BRU'.* + 25 


BRU CPAGE6 




BRM . 


CWIP 






BRU 


CPAGE3 




CPAGE 6 


LDX 


= - 1 




CPAGE 1 


LDA* 


SETE*2 


. FETCH PMT ENTRY 




SKA 


= BIT3 ' _ " 


VALID PAGE IN CORE? 




SKA 


= BIT6 


YES'/ CAM WE TOUCH IT? 




BRU 


CPAGE4 






BRX ' 


CPAGE 1. 


. 




LDX' 


= -10 


ALL PAGES IN CORE AND 


CPAGE 2 


LDA* 


SRTE*2 






SRM 


MPAGE 


MARK THE PAGE . 




BRX 


CPAGE2 






BRR 


CPAGE 


. RETURN, SKIPPING 


CPAGE 3 


MIN 


FLFLG* MIN 


RUNOUT . 




BRR .' 


CPAGE 




CPAGE4 


MIN 


CPAGE ' 






BRR 


CPAGE 





CWIP ZRO* LDX =-105 LDA =BIT5 

SKA*,SRTE*2* BRR CWIP* BRX 
MIN CWIP* BRR CWIP ' 



*GPAGE> 


z 




GPAGE 


ZRO 






BRM 


CPAGE 




BRR, 


GPAGE 


GF>AGE3 


SKN 


WEFLG • 




BRM' 


PSCN 




SKN 


FL FL G 


' 


BRR . 


GPAGE 




LDX 


= -10 




LDA 


SRTE*2 




STA 


WSRTE*2 




BRX 


*-2 




BRM 


PSCN 



CHECK FOR PAGES IN CORE 

YES ■-.:■■..- 



HAVE WE FINISHED WITH THE LAST REQUEST? 
'NO ^ CAN'T DO ANY MORE 
'YES* 'MOVE THIS REQUEST 



TRY TO GET PAGES FOR THIS GUY 



SKN 
MIN 
MIN 
BRR 



'FLFLG 
UEFLG 
FLFLG 
GPAGE 



INDICATE FAILURE 



'SCN* 



*PSCN SCANS THROUGH THE PAGES REQUESTED. IF ANY SUCH PAGE- IS NOT 
*IN CORE* PSCN KILL CALL FPAGE TO FIND AN AVAILABLE . PAGE IN MEMORY- 
*PSCN WILL THEN ASSI GN THE CORE TO THE PAGE REQUESTED AND INITIATE 
*A READ. IT WILL ALSO TAKE CARE OF THE NECESSARY OPERATIONS TO 
*MAKE,A- PAGE READ-ONLY* IF THAT HAS BEEN. REQUESTED. 



PSCN " 
PSCN 1 1 

PSCN 12 
PSCN 1 

PSCN 10 



PSCN 1 3 
PSCN 3 



PS CM 8 
PSCN 2 

PSCN 5 



PSCN 7 



PSCN 9 



ZRO 

LDX " 

LDA = 

SKA - 

BRM 

BRX 

LDX ' 

LDA* 

SKA 

BRU 

SKA = 

SKA ' 

BRU 

SKA 

BR6 

BRM 
'BRU 

MRG* 

SKA . 

BRU 

MRG 

MIN 

LDB 

ST A* 

BRM 

BRM 

BRX 

BRR • 

MRG 

ST A* 
V BRU 

SKA 

BRU 

SKA 

BRU 

MRG 

M I N 

BRU 

DIE 

LDA* 

MRG' 

ETR 



■ =-10 ■...'.. 

CN0T)BIT5.? DIR5 ETR* W'SRTE*2l EI RJ . STA* -'WSRTE* 2 
= BIT3+BIT4-i-37B , . , 

MPAGE ■■ "'.'..'"' 

PSCN 11 . ' , 

= -10 ;■ . . - .'•.-... : ■'.'. 

WSRTE*2 - YES* FETCH PMT ENTRY . 

=BIT6 SHOULD WE MAKE THIS PAGE READ ONLY? 

PSCN7 YES - ~ . 

Bills BRU PSCN 15 ■ •' . ' ' - . 

= BIT3.+ BIT4+BIT7 VALID PAGE OR READ IN PROGRESS? 



PSCN 2 

'=37B 

PSCN 13 

FPAGE 

PSCN 14 

WSRTE* 2 

= BIT2i 
- PS d CN5 
'=BIT4 

SWRCTR 

WSRTE*2 
WSRTE*2 
■ SRADC 

MPAGE •. 

PSCN1 

PSCN 

= BIT3 
WSRTE* 2 

PSCN8 

= BIT5 

PSCN 8 

=BIT0+40B 

PSCN 9 

= 8IT5 
3UWCTR 

PSCN 3 



WSRTE*'2 

= 40B 

= CN0T)BIT6- 



YES . ' ■ . v ■ 

PAGE 'ALREADY ASSIGNED? 
.YES •■ . . 

NO , TRY TO FIND A PAGE FOR THIS ONE 
NO PAGE AVAILABLE. DEFER READ. . 

PUT REALvPAGE NO IN PMT ENTRY 
PAGE- GRAB? 
YES • 
NO* MARK READ, IN PROGRESS 



PUT READ IN QUEUE 



MARK AS A/ALI D CORE IMAGE 



WRITE IN PROGRESS? '. ■ 

YES ':'".'.,. 

VALID COPY ON RAD? ' 

YES 

MARK WRITE IN PROGRESS 



MARK AS READ ONLY 



ST- A* WSRTE*2 

EIR ' 

BRU PSCNi'3 CONTINUE 

PSCN16. MIN FLFLG* BRUPSCN2 

. PSCN14 LDA WIBFLG* SK G DRCC* . BRU PSCN16 ' 

LDA =LDEQ-1* ' SKG DRCC* BRU PSCN 1 6 . 
•..-. LDA* USRTE*2J MRG =8IT7J STA* W.SRTE* 2 

MIN DRCIPJ LDA*- DRCIPJ SKA = 77.74000085 ADM DRCIP 
LDA WSRTE*2J STA* DRCIPJ MIN DRCCl BRU PSCN2 
PSCN15 MIN FLFLGJ SKN WIPFLG*. BRU PSCN10 
. • LDA = <N0T.)BIT7* DIRJ ETR* WSRTE* 2 
EIR* STA* WSRTE* 2; BRU PSCN 10 

*MPAGE* 

iMPAGE ZRO ., 

ETR =378 • . ' . . -EXTRACT REAL PAGE NUMBER 

; COPY AX*X3 / 

LDA = BIT2* DIR* MRG RMT* 2* EI Rr STA RMT* 2 R 

..LDA SREALJ SUB = 100B* STA SREAL - , „ 

STB MPAGEl* LDB* RMT* 2J -SKB =4081 LSH ,1* LRSH 2* LDB MPAGEl 
■ SKG RMA*2* LDA RMA* 2 ' ' : - , ' '..• 

STA RMA* 2 

CBX 

BRR MP AGE 

MPAGEl ZRO ' ' , :... 



* FPAGE* ■..'■■ 

*FPAGE SCANS THROUGH, REAL MEMORY. LOOKING FOR A PAGE WHICH CAN BE 
^RELEASED AND REASSIGNED. IN SCHEDULER MODE* IT WILL NOT RELEASE 
*ANY PAGE FOR WHICH BIT 0-.QF RMT IS SET* AND WILL RELEASE 
*THE OLDEST SUCH PAGE IT FINDS. IN UTILITY MODE* IT WILL RELEASE 
*AN ASSIGNED PAGE IF NECESSARY* AND THE YOUNGEST ONE FIRST.' IN 
*NO EVENT WILL FPAGE RELEASE A PAGE IS THERE IS ANY RAD ACTIVITY 
•^ASSOCIATED WITH IT. . - 

FPAGE 



FPAGE 1 



FPAGE9 



ZRO 




STX 


. FPAGE9 


BRM. 


OPAGE 


BRU 


FPAGE 1 


BRM 


■RPAGE 


LDX 


FPAGE9 


LDB 


. WSRTE* 2 


XX A 




STB 


RMT* 2 


XX A 




MIN 


FPAGE 


BRR 


FPAGE 


BRM 


spag'e 


LDX 


FPAGE9 


BRR 


• FPAGE' 


ZRO 





*OPAGE= 




OPAGE 


ZRO 




LDX 




LDA 


- 


ST A 


OP AGE 3 


SKN 




BRU 




LDB 




SKB 




BRU 




BRU 




SK B 




BRU 


, 


LDB* 




SK 8 ' 




SKG 




BRU 




LDA 




STX 


OPAGE1 


BRX 




SKN 




BRR 




LDX 


0PAGE2 


MIN 




^ CXA 




ADD 




CAX 




BRR 


0PAGE4 


ZRO 


*EPAGE> 




RPAGE 


ZRO 




ABC 




SKE 




BRU 




CBA 




•BRR 




LDA* 




ETR 




SKA 




ETR 




ST A* 




BAC 




STB 




BRR 


*EDR.CQ= 


- ■ 


EDRCQ 


ZRO 


EDRCQ2 


DIP 



=NSMEM-NMEM 

XX , '• 

'0PAGE4. ■''■■.■"■■' 

ERMC*2. LOCKED? 

OPAGE1 ■ 'YES* I6N0RE.IT 

EEMT*2 ; ".'. , / ■ 

= -1 ' ■■' PERHAPS IT IS ZERO? 

* + 2 •' NO 

0PAGE2 THIS IS OUR BOY 

= BIT2 .. PAGE ALREADY ASSIGNED? ; . 

OPAGE 1. YES ' ^ P 

ERMT*2 ■ 

= BIT0+BIT2+4'0B CAN WE THROW CORE IMAGE AWAY? 

ER'MA*2 ' . YES*- OLDER? 

0PAGE1 ■ NC LEAVE, HIM' ALONE 

E.RMA*2 

OPAGE 4 

OPAGE 3 

0PAGE4 

OPAGE 

0PAGE4 

OPAGE 

= NMEM 

OPAGE 



RMT*2 




* + 3 , 




RPAGE 




RMT*2 




=50177 740 8 


= BIT2 




= 1017"/ 


'740B 


RMT>2 




RMT*2 




RPAGE 





FETCH PMf ENTRY - . 

RELEASE CORE IMAGE 

PAGE GRAB? "'■ ' 

YES* THRO W AWAY VALI DI TY' 1 BI TS 



• • SKN 


DRCC 










BRU 


EDRCQ). 










EI R 












BRR 


EDRCQ 










EDRCQ1 LDA 


= 1 










ADM 


DRCOP 










LDA* 


■ - DRCOP 










SKA 


= 777400 


008 • 








BRU 


' *-3 










EIR 












SKR 


DRCC 










' . NOP 












CAX. 












LDA 


= <NOT>BIT75 


DIR5 


ETR 0*25 


EIR5 


-STA 0*2 


BRU 


■ EDRCQ2 










*SPAGE* 













*SPAGE SCANS THROUGH REAL MEMORY LOOKING FOR'. UN-REQUESTED. .PAGES 
*WHIGH .DO NOT HAVE A VALID RAD, IMAGE. IT. INITIATES WRITES FOR 
*EACH SUCH PAGE WHICH IT FINDS. 

SPAGE ZRO -r-. . \ 

' LDX =NSMEM-NMEM ■ 

SPAGE2 SKN ERMC*2 NO* LOCKED? . ' .' . 

BRU SPAGE 1. YES* LEAVE HIM ALONE 

LDB ' ERMT*2 

SKB .=-1 PAGE UNASSIGNED? 

SKB = 81 T2 PAGE ATTACHED? -,.".'',' 

BRU SPAGE 1 • '. NO' NEED TO -WRI TE 

LDA* .. ERMT*2 "' . - 

SKA —BIT0+BIT5+BIT4+BIT2+403. SHOULD WE WRITE HIM OUT? 

BRU SPAGE 1. ' NO 

MRG . . =BIT5. '■ , ' MARK WRITE IN PROGRESS 

STA* ERMT*2. ' 

BRM SRADC GENERATE WRI TE' COMMAND 

. MIN SWWCTR COUNT NO OF WRITES 

SPAGE 1 BRX SPAGE2 - ■■- ■ 

BRR . ■ SPAGE ' ' 

* SRADC*. ' ' ■ . 

SRADC ZRO 

STA SRADC 1 

STB SRADC2 

STX - SRADC3 ' • 

SKA =BIT55 MIN WIPFLG 
. SKA =BIT45 MIN RIPFLG- 
BRM GRC 

LDX ERCL 

MIN 3*2 . : . SET-UP INTERRUPT ' ROUTINE 

dip. ■ ..■•' r :•;. 

■ . '. BRM IRTC . . . ■-'■ ':,..'." ' ■ 

BRM RTS 
LDA SRADC 1 





LD3 


3 R ADC 2 




LDX 


SRADC3 


( 


BRR 


SRADC 


SRA'DGl 


ZRO 




SRADC2 


ZRO 


' ( 


SRADC3 


ZRO 


- 


-•• 5 bRC ; £ 






GRC 


Z RO ' 
CBX 






LSH 


11 




ETR 


■ = 174O00B 




LDB ' 


0* 2 






= 81 T5 




MRG 


=BIT0. 




COPY . 


AX*BA V 




L SH 


5 n 




ETR 


• =37 740006 




COPY 


AB*XA ' 




LDX 


=40008 




BRM 


RTC 



• EXTRACT. ABSOLUT 
FETCH PMT ENTRY 
WRITE?- " ' 
YES* MARK IT SO. 



EXTRACT RAD ADDRESS 
WORD COUNT 



CORE ADDRESS 



BRR 



GRC 



MKRL* 



MK 



MK 



m 



m 



M< 



RL, 


ZRO 






SKN 


FLFLG 




BRU 


MK RL 3 


RL9 


SKM 


EPFLG 




BRU 


MXRL3 




- LDX' 


= -10J LDA* SRT 


RL6 ' 


BRX 


* - 3 




LDX 


=.-8 


RL1 


LDA 
DIR 


=441777776 




ETR* 


• . SR-T+3y 2 . ' 




EIR 






.STA* 


SRT+8*.2' 




SKA" 


= Bi'T0 




MRG 


= 40B', 




ETR 


= 778 




STA 


SRT+8^2 . 




BRX 


MKRL1 




LDX 


• =-2 


RL2 


LDA 
DIR 


=417 77778 




ETR* 


; . SRTEj- 2 




EIR 






STA* 


SRTE*2 




ETR 


= 77B 


■ > 


STA 


SRTE* 2 




BRX 


MK RL 2 




LDA 


= -lj' STA WEFLG 



NO* FAILURE FLAG ON? 
YES* SKIP RETURN "" ' 
•FIRST PAS ; S THRU SCHEDULER?^ 
YES^ DON 'T SKIP ' 



VALID COPY ON RAD? 
YES/ MAKE IT READ-ONLY 



MKRL 5 



MKRL 7 



M<RL8 
M<RL3 



LDX 
L.D A 

LDA 
BRX 
LDA 
BRM 
BRR 
ETR 



=NSMEM-NMEM 
ADMSK5 DIRS ETR ERMT* 25 EI RJ 



STA ERMT* 2 



ERMA*25 LRSH 11 STA 

. MKRL5 
XK5 XMA SREAL5. LRSH 



ERMA* 2 



:rl- 



MK RL 
= 3781 XMA J 
LDX 

LDA MXRL85 STA 
CBX5 BRU MKRL 6 
ZRO 



IS STA SREALP 

PUT THE RELABELING BACK TOGETHER 

NO -SKIP RETURN WITH ReYaL RELABELING 



.35 LRR35 POT RRL35 STA MKRL8' 



LDA 
LDB 
LDX' 

MIN 
BRR 



'SWR1 
SWR2 
SWR3 
MKRL. 
MKRL 



= -400085 STA 0*25 BRX 
RRL35 LRR35 POT RRL3 ' 



1 



RESTORE REGI STERS 



SKIP RETURN 



*PTRL* 



PTRL 



'ZRO* CLEAR* LDA SRT+8* LSH . 6* MRG SRT+9* STA PTRL 1 



LDX. =-85 CLA5 MRG SRT+8* 2* LCY 65 BRX *-2 
LCY 185 LDX PTRL 15 BRR PTRL 
PTRL1 ZRO 



#UPRL* 
















LPRL 


. Z RO 5 


STB' 


UPRL15 


LRSH 11 


35, STA SRT. 








CLA5 


'LCY 


65 STA 


SRT+1* 


CLA5 LCY 65' 


STA 


SRT+2 




CLA* 


LCY 


65 STA 


SRT+3J- 


LDA UPRL'l* ! 


LRSH 


185 STA SRT+4 




CLA5 


LCY 


65 STA 


SRT+5J 


CLA5 LCY 65 


STA 


SRT+6 • 




CLA5 


LCY 


65 STA 


SRT+7J 


CXA5 RSH 65 


.ETR 


= 7 7B* STA SRT+8 




CLA* 


LCY 


65 STA 


SRT+9* 


BRR UPRL 






UPRL1 


ZRO 















*I'RS* .:. ■ . " . . ' • ;• ■ 

*IRSIS THE CLEAN UP .ROUTINE CALLED BY. THE RAD INTERRUPT 
^PROCESSOR. ON READ'S* IT CHECKS. FOR A SUCCESSFUL READ* AND 
*IF SO TURNS. ON THE VALID CORE COPY BIT. IN. ANY CASE IT TURNS 
*OFF THE READ IN PROGRESS BIT. 

*ON WRITES* IT FIRST CHECKS THE WRITE. IN PROGRESS BIT TO. SEE I F 
*IT IS STILL ON.. IF NOT* IT FIGURES THAT THE WRITE TURNED 
*OUT TO BE REDUNDANT* AND THE CORE COPY I S ALREADY SUBJECT TO . 
^FURTHER MODIFICATION'. IF THE WRITE IN PROGRESS BIT. IS STILL 
*ON* IT TURNS IT OFF AND. TURNS ON THE VALID DRUM COPY BITTF' THE- 
* WRITE WAS SUCCESSFUL. ' ■ - ' ' , \ ■ 



SIRS 



ZRO 
COPY 
LDX 
XX B 
LDA* 
SK B 



BX* A3 
3*2' 

RMT*2 
= BIT0 



FETCH PM 
WRITE? 



T ENTRY- 





BRU I RSI 


YES 






SKA = 8IT4 


STILL -INTERESTED IN THIS 


READ? 




BRU *+2 


YES 






BRR . , IRS 


NO 






SKR RIPFLG*. NOP 


' 






ETR =CN0T)BIT4 


TURN OFF READ IN PROGRESS 


> BIT 




SKN ■ RAD TRY , 


UNRECOVERABLE RAD ERROR. 






MRG = BIT3 


NO > MARK CORE COPY AS VAL 


ID 




ST A* RMT*2 








BRR IRS 






I RSI 


SKR WIPFLG3 NOP 








SKA ' =BIT5 


STILL INTERESTED IN TH1.S' 


WRI TE 




BRU *'+2 '. ' 


^ 






BRR -IRS , 


NO . : 






SKN ' RADTRY 


UNRECOVERABLE RAD ERROR?. 






MRG = BIT'S 


\ 






'ETR =CNOT>BIT53 STA* RMT* 2 : ' ' 






SKN RADTRY J BRU IRS23-E 


.RR IRS 




I RS2 


SKN. DRCC3 BRU * + 2.3 BRR 
LDA =1 


IRS '■ 






ADM DRCOP3 LDA* DRCOP3 


SKA =7774000083 BRU *-3 






SKR DRCC3 NOP 








'XX A3 LDB 0/23 XXA5 ..'SKB 


= BIT 73 BRU * + 23 BRU IRS2 






CAB3 LDA* RMT* 2 








ETR =4057774083 STA* RMT* 2 






L D A S R E AL P 3 -ST A RM A* 2 


- 






MIN RMC*25 LDA* FRQLST3 


XMA FRQLST '■ 






ADD =13 ST A IRCL1 ^ 








CBA 


\ : . 




- 


SK N WE FL Gi M R'G = B I T2 








STA RMT* 2 ■ 








XX A3 ETR =37B3 MRG 0* 2 








ETR =CN0T)BIT7 ' ' , . 








MRG = 3IT43 STA 0.2 


~ . , ■ ' -' 






CAX3 LRSK 13 ETR =3774083 STA* I RCL 1 






CXA3 LSH 23 ' ETR =14063 


MRG IRS3 






XXA3 LSH. 113 ETR =340008 






LDB .I RCL 13 XXB3 STA 1.2 


3 STB 2.2 






LDA = 13 STA 3*2 








MIN RIPFLG 1 








MIN SWRCTR 








SK N I CO UN Ti BRU- "I RS 4 








STX I RCL3 BRM . RRETRY 






I RS5 . . 


MIN -I COUNT! BRR IRS 






I RS4 


BRM IRTC3 BRU IRS 5. 






IRS3 


EOD -172023*4 






*TRAPR- 


;< ' . . 







*TRAPR IS THE READ-ONLY TRAP ROUTINE.. IT CHECKS TO SEE IF. THE 
*READ ONLY TRAP I S LEGITIMATE. > IF SO* IT BRANCHES OFF TO THE 
*DIAGNO"STIC ROUTINE. OTHERWISE* IT RESETS THE RELABELING 
^^APPROPRIATELY AND TURNS OFF THE VALID RAD COPY BIT. 



STRAP R 


ZRO 








STA 


TRAPR 1 






STB 


TRAPR2 






STX 


TRAPR 3 






LDA T 


RAPR 






3RM 


CAE ' 






NOP 









LRSH 


11 






ET-R 


= 7 






.MUL 


= 3 






: C 3X 








LDA 


RRL2 ■ 






LDB ' 


. RRL1 






LCY 


e>2 






ETR 


= 37B 






COPY 


AX*XB 






LDA* 


'RMTj 2 






SKA 


= 408 






BRU 


TRAPR4 






DIP. 








LDA* 


RMTj.2 






ETR . 


XX 






STA* 


■- RMT/2 






JEIR 








CBX 








LDA 


RRL 1 






LDB 


RRL 2' • 






LCY 


0.2 






ETR 


XX 






RCY 


&.» 2 






LDX 


RRL 3 






BRM 


LABEL 






LDA 


TRAPR1 






LDB 


T RAPR 2 






LDX 


TRAPR3 






BRI 


TRAPR 


TRAP 


R4 


LDA 


TRAPR 




- 


STA 









LDA 


TRAPR 1 






STA 


SS0 I 






LDA 


TRAPR2 






STA 


.SS02 






LDA ' 


. TRAPR 3 






STA . 


3S03 






BRU 


MTRAP 


TRAP 


Rl 


ZRO "• 




TRAP 


R2 


ZRO 




TRAP R 3 


Z RO 





COMPUTE EFFECTI VE ADDRESS: 

WE DON'T CARE. ABOUT INDIRECT i- ADDRESSING 



GET BYTE NUMBER 
COMPUTE SHIFT 



GET REAL RELABELING 



EXTRACT PAGE NUMBER 

GET PMT/SMT ENTRY 
REALLY READ ONLY? , 
YES 



TURN OFF VALID RAD ■ COPY- BIT 



TURN OFF READ ONLY BIT .' 
RESET THE RELABELING 

RETURN TO PROGRAM. 

SET THINGS UP FOR THE TRAP ROUTIN- 



*FLAGS* POINTERS AND -STORAGE* 



SWR1 ' 
SWR2 



Z RO 
ZRO 



SWR3 



ZRO 



DRCIP 


DATA 


DRCQ ' 


DRCOP 


DATA 


DRCQ 


DRCC. ' 


DATA 


-1 


DRCQ 


BSS . 


LDRQ 




DATA 


-LDRQ 


SREAL 


DATA 


377777778 


SREAL P 


DATA 


37777777B 


SWIPFL 


G DATA' -1 


RIPFLG 


DATA 


-1 


WWEFLG 


DATA 


-1 


RUNOUT 


DATA 


-1 


WEFLG 


DATA ' 


■ - 1 


ACTRP- 


DATA 


-2 ' 


FPFLG 


ZRO 


. . 


FL FL G 


ZRO 


8 


SRI' . 


BSS 


10 


SRTE 


ECU 


.* 


WSRT 


RPT 


1 




DATA 


SiiT' 




EN DR. 




WSRTE "" 


EQU 


* 


RRL 1 


Z RO . 




RRL2 


ZRO 




RRL 3 


ZRO 





NEGATIVE IF NO WRITES IN PROGRESS 



NEGATIVE IF WSRT I S ■ EMPTY , 

NON-NEGATIVE FIRST PASS THRU, SCHEDULER 
IF NON-NEGATIVE* THE SWAP HAS' FAILED 
TABLE FOR UNPACKING RELABELING 



READ OR WRITE 2K C BRS 104*105) 



WSY8 



RSYB. 



SRSYBI 



RSYBT1 



LDB 


= RTW 




BRU 


RSYB+1 , 




LDB 


= RTC 




STB 


RSYBT1 


• 


ET'R 


=340008 


■.. • > 


SKN 


PQU*2 ■ 




BRU 


TRAP 




CAX 






LDB 


0* 6 




STB 


0s 6 


'■ 


BRN 


DTH 




LDB 


SS02 




-SKB 


= 74000.0008/ 


BRU TRAP : 


LDX 


=40006 




BRM* 


RSYBT1 




■BRM 


DISA.5 LDX ERCLJ ADM 3*2 


BRM 


RTSJ BRU ARV 


JD2 



DIRJ BRM IRTC 



ZRO J LDX -IRCLlJ LDA 3*2J. LRSH 65 MRG 
CAX J SKN RADTRY.5 MI N PL* 2$ LDA PI M* 2 
E'TR =CN0T)BIT3i STA PIM',2S BRR RSY8I 
ZRO 



PLMSK 



PACLVL ZRO 
PPREV ZRO 
PPTEST ZRO 



FPUSf ZRO 



PUCT 3SS 


■MPUQ*3.. 


SEPUCT3 EQU 


PUCT+NPUQ*3+3 


3EPUCTEQU 


PUCT+NPUQ*3 


SEPUCM3 EQU 


PUCT+NPUCI*.3-3 


FPUL5T ZRO 




PUBPTR ZRO 




PUCTR ZRO 




PUCTR1 ZRO 




PUCPTR ZRO 




PUEPTR ZRO 




PUP AC ZRO 


-- 


PUT ST ZRO 




SPUTIM - ZRO 


. 



SARCVRA ZRO 3600 



* CLOCK ROUTINES AND TABLES 

QJTAB -ZRO NF0U NUMBER OF CLOCK CYCLES IN QUANTUM 

QTIME . ZRO ■ ' , . 

TIME ZRO ' 

TTIME ZRO ' ."• ' - ; . ' 

.CLOCK 3. ZRO 

-S- CLOCK "INTRRUPT ROUTINE AV'C TIME= . 04'T MS , 
CLINT ZRO . . • . .'■ 

MIN REAL . 

MIN*' TJOB 

SKN CLINT 
. . ' MIN '. STIME 
• SKN ACTR; MIN UREAL 

SKS 14000B; MIN WBTIM 

CATEJ MIN CETIM 

SKR ARCVRA 

BPT4 

3RM RCVR 

SKR TTIME; NOP 

SKR ' TIME 

BRI CLINT 

SKN NRCL; BRI 'CLINT 
."' " SKN ACTR-. 

BRU CLOUT; SKR -QTIME; BRI CLINT; SKN TTIME ' ' 
' BRI CLINT 
CLOUT EOM 2S400B; SKR CLPCTR;- BRI CLINT , 

' ARMI SATIU; MIN .CLINTI;- BRI CLINT '' \ 

SCLINTA SKR CLINTI; NOP; SKN ATI I; BRU * + '2i' BRU INT31B 

LDA =TRAP; STA ATI I; STA CLPCTR; BRU INT31B 
SCLINTI DATA -1 V " ; 

SCLPCTR DATA 3600 ' ' ' .. 

* FAST CLOCK (POWER OFF INTERRUPT) 

PWFI ZRO , . ".i 

BRI - PWFI " ' • ■ < . ' - . . 



* BBS'S FOR TIMING 
RTEX LDX JOB 

LDA- ETTB*2 

STA SS01 

BRU POPX 
RREAL LDA REAL 

LDB DMINi LDX SS03i BRU XPOP 
UREAL 



WRECi 



CQO 



M UL 


=17270246 


SKB 


' X4 . 




ADD 


= 1 




ADD 


REAL 




STA 


SS01 




LDX 


= QTI 




LDB - 


WREC1 




MIN 


. 




BRU 


POPDMS 




4 


*+-l 




LDA 


PA* 2 




CA'CR 


1* CSKG 


REAL ) 


LDA 


. TIME - 




SK G 


= 1 




BRU 


SSQO 




BRU 


POPX 





SCONT 'ZRO J CKFS LDA = 16*20000B* LDB ■ DCWBIT3 LDX =400008 

BRM GDACJ BRU *-4l BRM 6863 BRU CONTA. 
SLOAD BRM. GB63 BRU CONTA • 



SYSTEM RESTART 



RSTART 


ZRO 
CKF 






LDA 


= DMPB1MD*20000B 




LDB 


DCWBIT 




LDX • 


=40000B 




BRM 


; GDAC 


RESET 1 


HLT 







-BRM 


GB6 




8RR 


RSTART ■ 


RCVR1 


' ZRO 


° ■ 


RCVR2 


ZRO 




RC.VR3. 


ZRO 




SRCVR 


ZRO 





STA RCVRU STB RCVR23 STX RCVR3 

ARMI = 60000083 CKF . '. ■ ' 

BRI . =*+l 

SKi-LMDCLl BRU *'-l3 SKM NRCL3 BRU *-l 

BRM RSTART '■-.,■. ' 

BRU . CONTA RE INITIALIZE SYSTEM- MUST RE BITMAP 



*; SYSTEM START 
SSETSET BRM GB6' 



BRU SETSA 

REAL CORE ADDRESS IN B 



* GET 


DRUM BLOCK IN A INT 


GDAC 


ZRO 


' 




ARM I 


=6000008 




.STB 


GDBCL 




LRSH 


6 




STA 


GDBCL+1 




LDA" 


GDBCL 


v 


ETR 


ADMSK 




RSH 


'14- 




CXA 




, 


ETR 


=777778 




LCY 


1-4 


/ 


. STA 


'GDBCL+2 .. 




LSH. 


19 




'lda 


GDBCL ' 




ETR 


= 140000B 




- CBX 






RSH - 


14.. " 




' CX8 






LSH 


5 . 




MRG 


=IOSDE 




STA. 


GDAC3 


GDAC1 


RSR 


! 




BRU 


*-l 




ALR 






POT 


.GDBCL+1 




EOD* 


10090B 


GDAC 3 


BRU* 


* " ' 




POT 


GDBCL+2 




SKN . 


GDBCL 




BRU 


*+'3, 




WRF 






BRU ■ 


~* + 2 _ 




RRF 






RSE 






BRR , 


GDAC 




RSR 






BRU 


* " 3 




CETE . 






BRR 


GDAC 




MIN 


GDAC 


GDAC2 


BRR 


GDAC 


GDBCL 


DATA 


4000Bj> 0* 


GDBC 


Z R.O 






LDX ■ 


GDBC 




STX 


GDAC 




LDX 


=40008 




BRU 


6DAC+ 2 


*-' GET 


SIM INTO 


REAL BLOCK 


G86 


Z RO 
DI3W 






TSN 










LDA 




MSMT ■ 






LSH 




5 






ETR 




=37740003 






LDB 




= 300008. 






BRM 




GDBC 






HLT 










LDA 


- ow 


IBS STA RRL35 


LRE35 


POT RRL3 


BRR 




G86 







QUEUE ROUTINES 



QPUT 


ZRO 








LDB 




'2*2 




XXA 








. STB 




PN EXT* 2 




XXA 








LDB 




\*~2 




ST A 




\>2.>, ' 


, / 


. CBX 








ST A 




PNEXT*2 : 




BRR 




QPUT 


QGET 


ZRO 








ST A 




PN EXT j. 2 ' 




XX B 








SKG 




= 




BRR 




QGET . - 




STB 




PNXTPU2 




BRR 




QGET , . 


QSCH 


ZRO 5 


KM 


A PTEST^2 




EOR 




= 700000B : 


. 


SKA, 


= Z700000BJ BRU -*-+25 




LDA 


PNEXT.>25 STA QSCHl J 


QSCH 2 


SKG 


= 05 


BRU 'QSCH 35 SUB 


QSCH 3 


C.AXJ 


LDA PN EXT ^ 25 SKE G 




BRM 




QGET - ■■ 




LDX 




QSCH4 ■ - ' : 




BRR 




QSCH 


QSCHl' 


'Z RO 






QSCH A 


Z RO 







BRR QSCHL 

STX -QSCH45 LDA =QTI 
= RNEXT5 CAB 
QSCH45 BRU QSCH25 LDA QSCHl 



INTERRUPT LOGIC 



II R 



ZRO 




SKA 


PIi'b2 


BRU 


* + 2' 


BRR 


IIR 


STA 


.' II'Rl 


STX 


IIR2 


D'l R 




EOR 


PIrt*2 


EIR 




STA 


PIM*2 





CLEAR 






LDA < 


IIRl 




■MOD 


■24. 




CXA 






SUB 


= 50.00006 




CM A 






CAB 






LDX 


1 1 R2 




LDA 


PTEST^2 




SK E 


= 70000 4B 




BRU 


II R 3 




LDA 


PIM^2 




SKA 


X 1 




Q P O 


II R ' - 




STB" 


IIRl 




LDA • 


PPTR.,2 




RSH 


12 




CAX 






BRM 


DFK 




LDB 


IIRl 


I IRS 


CBA 






LDX 


1 1 R 2 




BRM - 


QSCH 




CXA 






MRG . 


X7 




LDX 


•=QIO 




BRM 


■ QPUT 




LDX 


•IIR2 ' 




MIN 


II R 




BRR 


IIR 


IIRl 


zro 




IIR2 


Z RO 




* SEARCH FORK 


STRUCTURE 


SIR 


■ ZRO 






STA 


SIR1 




LDA 


PPTRj.2 




MRG 


PLMSK 




CAX 






. LDA 


PPTR» 2 




LRSH " 


12 


SI R2 


ska".. 


PRMSK 




BRU 


SI R3 


SI R4 


LDA 


,-PPTR>2 




SKA 


PRMSK 


^ 


BRU 


■* + 2 




■ BRR 


■ SI R - 




MRG 


PLMSK 




CAX 






LDA 


SIR1 




BRM 


1 1 R 




. BRU 


SI R4 


SI R5 


MIN ■ ' 


SI R ' 




BRR 


SI R 


SI R3 


MRG 


PLMSK ' 



C NO N - T E RM I N A BL E ' B R S ) 



AND INTERRUPT 



SIR1 



CAX 




LDA 


SIR1 


BRM 


IIR 


BRU 


* + 2 


BRU 


SI-R5 


LDA 


PQU* 2 


BRU 


, SIR2 


Z RO 




END 





